home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 2 / 64er_Magazin_Sonderheft_02_86-02_1986_Markt__Technik_de.d64 / listing 5 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  67 lines
  1. 1000 rem *** einfache kopien ***
  2. 1010 :
  3. 1020 :
  4. 1030 rem ** ausgabe programmeldung
  5. 1040 :
  6. 1050 print "[147]bitte warten"
  7. 1060 :
  8. 1070 :
  9. 1080 rem ** sprite-daten laden
  10. 1090 :
  11. 1100 for n = 896 to 958
  12. 1110 :   read spdta
  13. 1120 :   poke n, spdta
  14. 1130 next n
  15. 1140 :
  16. 1150 data   6,102, 96,  6,102, 96
  17. 1160 data   6,102, 96,  7,255,224
  18. 1170 data  15,255,240, 28,  0, 56
  19. 1180 data  56,  0, 28,113,195,142
  20. 1190 data 225,195,135,193,195,131
  21. 1200 data 192,  0,  3,192,  0,  3
  22. 1210 data 192, 60,  3,192,  0,  3
  23. 1220 data 204,  0, 51,198,  0, 99
  24. 1230 data 195,255,195,192,  0,  3
  25. 1240 data 224,  0,  7,127,255,254
  26. 1250 data  63,255,252
  27. 1260 :
  28. 1270 :
  29. 1280 rem ** sprite-register vorbereiten
  30. 1290 :
  31. 1300 print "[147]"      :rem schirm loesch.
  32. 1310 vic = 53248    :rem grafikbaustein
  33. 1320 :
  34. 1330 poke 2040,14   :rem datenzeiger 0
  35. 1340 poke 2041,14   :rem datenzeiger 1
  36. 1350 poke 2042,14   :rem datenzeiger 2
  37. 1360 poke 2043,14   :rem datenzeiger 3
  38. 1370 :
  39. 1380 poke vic,98    :rem horzntl.pos. 0
  40. 1390 poke vic+2,246 :rem horzntl.pos. 1
  41. 1400 poke vic+4,98  :rem horzntl.pos. 2
  42. 1410 poke vic+6,246 :rem horzntl.pos. 3
  43. 1420 :
  44. 1430 poke vic+1,95  :rem vertkal.pos. 0
  45. 1440 poke vic+3,95  :rem vertkal.pos. 1
  46. 1450 poke vic+5,184 :rem vertkal.pos. 2
  47. 1460 poke vic+7,184 :rem vertkal.pos. 3
  48. 1470 :
  49. 1480 poke vic+39,1  :rem 0 ist weiss
  50. 1490 poke vic+40,3  :rem 1 ist hellblau
  51. 1500 poke vic+41,5  :rem 2 ist gruen
  52. 1510 poke vic+42,7  :rem 3 ist gelb
  53. 1520 :
  54. 1530 poke vic+21,15 :rem sprites 0-3 an
  55. 1540 :
  56. 1550 :
  57. 1560 rem ** prog.ende mit tastendruck
  58. 1570 :
  59. 1580 get kp$
  60. 1590 if kp$ = "" then 1580
  61. 1600 :
  62. 1620 rem ** ruecksetzen des registers
  63. 1630 :
  64. 1640 poke vic+21,0
  65. 1650 :
  66. 1660 end
  67.